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D 15 
*+F ILE®*1D**COMMAND 4 
CCCCCCCC 000000 MM MM OMM MM AAAAAA NN NN DDDDDDDD ‘ 
cccccccc 000000 MM MM =OMM MM AAAAAA NN NN DDDDDDDD : 
cc 00 00 MMMM MMMM MMMM MMMM AA AA NN NN DD DD : 
cc 00 00 MMMM MMMM MMMM MMMM AA AA NN N DD DD ; 
cc 00 00 ™M MM MM «OMM OMM AA AA NNNN NN 0D DD : 
cc 00 00 MM MM MM MM «OMM «OMM OAA AA NNNN NN 0D DD : 
cc 00 00 MM MM MM MM AA AA NN NN NN DD DD ; 
cc 00 00 MM MM OMM MM AA AA NN NN NN OD DD ; 
cc 00 00 MM MM OMM MM AAAAAAAAAA NN NNNN DD DD ; 
cc 00 00 MM MM MM MM AAAAAAAAAA NN NNNN DD DD ; 
cc 00 00 MM MM OMM MM AA AA NN NN DD DD een : 
cc 00 00 MM MM OMM MM AA AA NN NN DD DD bibind ; 
CCCCCCCC 000000 MM MM OMM MM AA AA NN NN DDDDDDDD ane : 
cccccccc 000000 MM MM MM MM AA AA NN NN DDDDDDDD hone : 
LL III SSSSSSSS : 
LL III] SSSSSSSS 3 
LL I] Ss : 
LL I] ss : 
LL I] SS . 
LL I] ss ; 
LL I] SSSSSS ; 
LL I] SSSSSS 3 
LL I] ss 3 
LL I] ss 3 
LL II SS 3 
LL II $s 3 
LLLLiLLLLL III SSSSSSSS : 
LLLLLLLLLL HII] SSSSSSSS 
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14-Sep-1984 DISKSVMSMAST ERSCED °sre COMMAND .B32; a9 ea) 
1 uN LE ‘ED Tec cemnane = command Line interpreter’ 
§ ULE EDTSCOMMAND ( ! Command Line interpreter : 
Fa {DENT = *v04-000' ! File: COMMAND.B32 Edit: JBS3002 
5 BEGIN 


Ss 


3 ; foe ; 
;  § ; 
3 5 : : 
: ? 007 1 i eeeeeeerererereeeeeeeeeeeeeeeerereererereerererreeeeerereneeeneneeeerereeeee : 
; 1 Ie 3 
; G 0009 1 !* COPYRIGHT «s 1978, 1980, 1982, 1984 BY * 3 
: 10 0010 1 !# pet EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * : 
; V Bat) : ” ALL RIGHTS RESERVED. * : 
° .* ® . 
: 18 $018 1 '® THIS athe id FURNISHED Ae A LICENSE AND MAY BE USED AND sor ece we ; 
7. on 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * $ 
ak 0015 1 !* INCLUSION OF THE ABOVE fp NOTICE. THIS Sor TWARE OR ANY OTHER * 3 
4 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
5 17 0017 1 !* OTHER PERSON. NO TITLE TO Aue OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
: + Bole : :* TRANSFERRED. * : 
3 :* * Ps 
; 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT &Y DIGITAL EQUIPMENT * $ 
3 $8 $058 : # CORPORATION. * 3 
Ps -* * 5 
$ 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
: 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
; & 0026 1 !* * | 3 
; 2 0027 1 !« * : 
$ 28 0028 1 eee ere ee eee eee EEA A RARER ARERR s 
3 9 0029 1! : 
; $3 0030 1 3 
; 0031 1 !+4+ 3 
3 32 0032 1! FACILITY: EDT -- The DEC Standard Editor 3 
aa 0035 1! 3 
; $e 0034 1 ! ABSTRACT: 

; 5 0035 1! 

3 38 Bo56 1 This module does the result parsing of the EDIT/EDT DCL command. 

: 38 0038 ! ENVIRONMENT: VAX/VMS only | 

: 40 0040 1 ! AUTHOR: Bob Kushlis, CREATION DATE: October 12, 1979 | 

3 43 Opes : Rewritten by Sharon Burlingame with consulting provided by Peter George on February 17, 1983 

> 43 00463 1 | MODIFIED BY: 

: 44 0044 1! 

ee 0045 1! 5-001 - eqnplerety revise module for new DCL command language interface. SMB 17-Feb-1983 

: 46 0046 1 ! 3-002 - Fix /NOJOURNAL. JBS 27-Apr-1983 

; 0047 1 !-- 

; 48 0048 1 | 


“188 QRS2  YREDMBAIETERE ESN °SREScommno ost" cf 
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EDTS AND EDTSCOMMAND = command Line interprete 16-Se 


Declarations 4 


<m 
<= 


3 ° 8 } XSBTTL ‘Declarations’ 3 
; ¢ 1 i TABLE OF CONTENTS: | : 
3 «54 0 : 1 : 
2 5 O83 ! REQUIRE ‘EDTSRC: TRAROUNAM’; $ 
; A] 494 1 FORWARD ROUTINE $ 
; we 495 1 EDTSSPA_CMDLN : NOVALUE; ! Parse the command Line 3 
; 0496 1 | ; 
: 60 497 1! : 
3; 66) 498 1 ! INCLUDE FILES: : 
3 6 9 1! : 
: © 0500 1 | ; 
3 64 0501 1 REQUIRE ‘EDTSRC:EDTREQ'; ; 
; 65 06 $ 1 | 3 
; 66 0637 1 REQUIRE "EDTSRC:SYSSYM'; ; 
; 7 0667 1 3 
; «668 0668 1 REQUIRE ‘TRACESEL'; ; 
; 69 0699 1 | ; 
: 4 344 : REQUIRE ‘EDTSRC:TRACEMAC'; : 
: 7 0928 1 LIBRARY ‘SYSSLIBRARY:CLIMAC'; | ; 
— Z 0929 1 | : 
; «676 0930 1! 3 
; ££ att 1 ! MACROS: : 
; © 09 ; 1! : 
; 0933 1! NONE 3 
: «#378 0934 1! : 
: 79 0935 1 ! EQUATED SYMBOLS: : 
: 80 0936 1! 3 
; 8 0937 1! 3 
: 82 0938 1 ! OWN STORAGE: ‘ 
s 0939 1! : 
; 84 0940 1! NONE ; 
; 85 0941 1! F 
: 86 Bees 1 ! EXTERNAL REFERENCES: : 
3 Hy 0944 ! In the routine | ; 


— 
see 


: 
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15 
AND ~ command Line interpreter 18-Sep-19 4 99:18:69 
CMDLN = parse command Line 14-Sep-1984 12:22:52 
ZSBTTL "EDTSSPA_CMDLN = parse command Line’ 
GLOBAL ROUTINE EDTSSPA_CMDLN 
: NOVALUE = 


32 v4.0 
R 


! Parse a command Line 
'oe 
FUNCTIONAL DESCRIPTION: 
This routine parses the EDT command Line returning the following information: 
The input file name. 
The output file name. 
Whether or not journalling is specified and the explicit name if given. 
Whether or not a command file was specified and the explicit name if given. 
Whether or not to open the file for READ ONLY. 
Whether or not to CREATE a new file if the named input file doesn't exist. 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


i 
i 
i 

: EDT$$Z_C 
i 

i 

' 

i 

' 

' 
a 


IMPLICIT OUTPUTS: 
EDT$$2_CCMD_DES 
EDT$$2~CJOU-DES 
EDT$$2~COUT—DES 
EDT$$2~C INP~DES 

i ROUTINE VALUE: 
NONE 
i SIDE EFFECTS: 


Fills the pointer and Length fields of the file name 
string descriptors. 


BEGIN 


EXTERNAL ROUTINE . 
CLISPRESENT, ' Was a parameter/qualifier present Mek 
CLISGET_VALUE; ! Get the value of that parameter/qualifier 
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$d ~pUTPUT pscsh. POINTER) = UPLIT (B “€ (‘OUTPUT")); 
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NOUS O we 


GESSESSSSES LS 


POPOMNONINNONIN 2 2 3 OO 
AUS WR OO OONAUSWN OO 


near ey 

NOME WN 9 OONAUE WN (OOOO UE WOO 
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= DSCSK br yre at 
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J=u 

9; 
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PcTT Assos: ("READ_ONLY')); 


a 


nnuwno 


ers OOOn 


‘( RECOVER')); 


CLISGET_VALUE (SD_INPUT, greeters CINP_DESC) 

SSTRACE (EDTSSTR_COM Be StOM INP, “EDTS$z _CINP_DESC COSCS$W_LENGTHI, 
.EDTS$$Z_CINP~DESC CDOSCSA_POINTER]): 

! "Get the output file spec if there is one. 

" OUTPUT_STATUS = CLISPRESENT (SD_OUTPUT); 

i There is an output file b by default. Only turn on the READ_ONLY 

i i bt if /NOOUTPUT was explicitly specified. 

Fe Oe STATUS EQL CLIS_PRESENT) 


BEGIN 
EDT$$V_COPTIONS (3) = 
CLISGET_VALUE (SD sourru sfotssz COUT_DESC) 
SSTRACE™ (EDTSSTR Epis SCOM OUT, "EDTS$2 _COUT_DESC CDSCS$W_LENGTH], 
al .EDT$$2 "tout Re DScaAY RBSINTERD); 
ELSE 
IF (.OUTPUT_STATUS EQL CLIS_NEGATED) THEN EDTS$V_COPTIONS [3] = 1 ELSE EDTS$$V_COPTIONS [3] = 0; 


'¢ 
Z Check for explicit command file. 


COMMAND_STATUS = CLISPRESENT (SD_COMMAND) ; 
mS - COMMAND STATUS EQL CLIS_NEGATED) ! /NOCOMMAND specified 


BEGIN 
EDTS$V_COPTIONS [4] = 
POTRACE (EDTSSTR_COM, EbtsstR. SCOM_SW_CMD, ZUPVAL, ZREF (0)); 


BEGIN ! /NOCOMMAND not specified 

EDTS$V_COPTIONS (4) = 

IF (EDTS$V_COPTIONS (1) = CLISGET_VALUE (SD_COMMAND, EDT$$Z_CCMD_DESC)) 
BEGIN 
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Eors OMMAND EDTSCOMMAND = command Line intorgreter 18 -Sep-1984 2 8: 14:49 VAX-11 Bliss-32 V4.0 oe 6 

V S500 EDTSSPA_CMDLN = parse command | 14-Sep-1984 12:22:52  DISKSVMSMASTER:CEDT. SRCICOMMAND.B32: 429 * ¢3)| 

: 26 P1117 & SSTRACE | { DTSSTR_¢ com EDISSTR, SCOM CMD, .EDTS$Z_CCMD_DESC CDSCSW_LENGTHI, : 
; 26 1118 4 z CCM DESC [DSCS$A_POINTER]) ; 
; 4 1119 4 sstRice. teh TRICOM, EDTSSTR_SCOM_Sw_ inp, ZUPVAL, %REF (2)); ; 
; 66 W101 4 END : 
; 6 11 ¢ ELSE $ 
; 68 1 ; SSTRACE (EDTSSTR_COM, EDTSSTR_SCOM_SW_CMD, ZUPVAL, %REF (1)); : 
: 270 1125 END; : 
3 71 11 $ Ps 
3 7 11 '¢ : 
; 6, 1 4 a Check for explicit journal file. : 
° . | e 
: P 1h JOURNAL_STATUS = CLISPRESENT (SD_JOURNAL); | : 
: 277 1138 IF (.JOURNAL_STATUS EQL CLI$_NEGATED) ! /NOJOURNAL specified | : 
> 278 11 THEN | ; 
$ 79 1134 EGIN 3 
; 280 1135 EDTS$V_COPTIONS [2] = ; 
; 281 1136 SSTRACE (EDT$STR_COM, LitsstR _SCOM_SW_JOU, %UPVAL, %REF (0)); | ; 
; 288 1138 ELSE | : 
3 284 1139 BEGIN : 
: 285 1140 3 
3 286 1141 LOCAL ; 
; 287 1166 STATUS; ; 
: 288 114 F 
; oh9 1146 3 EDT$$V_COPTIONS [2] = 0; ; 
: 291 1146 & IF {STATUS = CLISGET_VALUE (SD_JOURNAL, EDT$$Z_CJOU_DESC)) ; 
;s 2 1147 3 THEN 3 
: 29 1148 4 EGIN | : 
> 29% P1149 4 SS$TRACE (EDTSSTR_COM, EDT$S$TR_SCOM J9u, .EDT$$Z_CJOU_DESC CDSC$W_LENGTH), | ; 
> 295 1150 4 -EDT$$2Z_CJOUDESC CDSCSA_POINT ; 
; 296 1151 4 SSTRACE CEDTSSTR™ COM, EDTS$TR_ ScOn so _JOU, SUPVAL, ZREF (2)); : 
Py } e 
: 298 1188 4 END | ; 
: 299 1154 : ELSE | ; 
3 00 1135 SSTRACE (EDTSSTR_COM, EDTS$TR_SCOM_SW_JOU, ZUPVAL, ZREF (1)); : 
: 02 1157 END; | : 
: 30 1158 : 
: 304 1159 2 !¢ : 
; be 1199 i Look for /CREATE qualifier : 
: 307 116 " CREATE_STATUS = ch SPRESENT (SD_CREATE); ; 
: 08 1163 EDT$$V~COPTIONS = NOT .CREATE_STATUS; | 3 
: 10 1165 _Look for /RECOVER qualifier ; 
: 12 1189 RECOVER_STATUS = LISPRESENT (SD_RECOVER); : 
: 13 1168 EDT$$V_COPTIONS RECOVER_STATUS; | : 
; 15 117 IF .RECOVER_STATUS THEN SSTRACE (EDTS$TR_COM, EDTS$TR_SCOM_SW_REC, ZUPVAL, ZREF (1)); 3 
; 19 117@ rs : 
: 18 117 i Look for /READ ONLY qualifier 3 
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Ou +000 EDTSSPA_CMDLN = parse command Line 127800-1 382 99:35:85 DL SKSVMSMASTERSLEDT. SRCTCOMMAND .B32:1° 9° (3) v04 
: 19 1174 t= 
; 9 1179 READ_ONLY_STATUS = CLISPRESENT (SD_READ); 
; : 177 IF (.READ_ONLY_STATUS NEQ CLI$_ABSENT) 
; 4 N78 : BEGIN 
3 8 HY If journaling was not indicated explicitly, set it based on /READ_ONLY. 
: 328 118 
; 4 1188 4 IF (JOURNAL STATUS EQL CLIS_ABSENT) OR (.JOURNAL_STATUS EQL CLI$_DEFAULTED)) | 
3 1 1186 EDTSSV_COPTIONS [2] = .READ_ONLY_STATUS; 
: 3 1188 3 !4 
; 335 113 } If an output file was not indicated explicitly, set it based on /READ_ONLY. 
: 336 1191 3 
3 337 1198 4 IF (¢.QUTPUT STATUS EQL CLIS_ABSENT) OR (.OUTPUT_STATUS EQL CLI$_DEFAULTED)) 
3 339 1194 : EDT$$V_COPTIONS [3] = .READ_ONLY_STATUS; 
; 341 1196 ; IF .READ_ONLY_STATUS THEN S$TRACE (EDTSS$TR_COM, EDTS$TR_SCOM_SW_REA, 0, 0); 
: 34 1198 2 END; 
3 344 1199 
: 345 1200 2! 
; 346 1201 1 END; ! of routine EDTS$PA_CMDLN 


-IDENT \V04-000\ 
~PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
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44 4E 41 4D 4D 4F 43 Q0000 P.AAA: .ASCII \COMMAND\ : 
00007 -BLKB 
45 54 41 45 52 43 00008 P.AAB: .ASCII \CREATE\ : 
BO 00F -BLKB 
54 55 50 4E 49 Q0010 P.AAC: .ASCII \INPUT\ 3 
Bp t2 -BLKB 
4C 41 4E 52 55 4F 4A 00018 P.AAD: .ASCII \JOURNAL\ : 
Bott -BLKB 
54 55 50 54 55 4F 86 " P.AAE: ey \OUTPUT\ ; 
59 4C GE GF SF 44 41 45 52 000 : P.AAF : tt \READ_ONLY\ : 
52 45 56 4F 43 45 52 00034 P.AAG: .ASCII \RECOVER\ : 
CLISPRESENT, CLISGET_VALUE 
EDTS$Z_CCMD_DESC 
EDT$$Z_CJOU_DESC 
EDT$$Z_COUT_DESC 
EDTS$Z_CINP DESC 
EDTS$$V"COPTTONS 
CLIS_NEGATED, CLIS_PRESENT 


| 
-TITLE EDTSCOMMAND EDTSCOMMAND = command Line interpre 
| 
| 
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EDTSCOMMAND 
04-000 


DTSCOMM 
dT$ 


< 
Oo 
= 


E 
E 


.EXTRN CLIS_ABSENT, CLIS$_DEFAULTED ; 
07FC 00000 eENTRY EDT ssrA. CMDLN, Save R2,R3,R4.R5,R6,R7,R8,- : 0948 . 
A 000000006 8F 00 0000 MOVL  #CLI$_DEFAULTED, R10 : : 
8 099000006 F 00 $0 MOVL  &#CLIS$“ABSENT, RO : ; 
8 0000006 8F D0 00010 MOVL  #CLIS“NEGATED, R8 : ; 
AP 9E 00017 MOVAB P.AAAT R? : : 
: 00000006 00 9€ 0001 MOVAB CLIS$GET VALUE, R6 : : 
999000 6 00 9E 000 MOVAB CLISPRESENT, RS : ; 
54 000000006 00 9€ 000 MOV EDTS$$V eBpT ions. R4 : ; 
5E 4 ¢ 00 9 SUBL #36 SP : ; 
2c AE 010E0007 BF 00 00 MOVL #17694727, BY COMMAND + 1041 ; 
60 AE 67 i 00038 MOVAB P.AAA spc + 1040 ; 
34 AE 010E0006 8F DO 0003F MOVL  #176947267 4 CREATE : 1046 3 
8 AE 08 A7 9E 00047 MOVAB P.AAB, SD_CREA + 1045 : 
1C AE 010E0005 8F DO 0004 MOVL #176947257 SD INPUT + 1051 ; 
20 AE 10 <A? 99E 00054 MOVAB P.AAC * INPOT+ 3; 1050 ; 
14 AE 010E0007 8F 00 00059 MOVL wi 769h72 ¢ 2 JOURNAL : 1056 j 
18 AE 18 A? 9E 00061 MOVAB P.AAD OURNAL +4 > 1055 ; 
OC AE 010E0006 8F DO 00066 MOVL Wi 7epe7>67 43 OUTPUT + 1061 ; 
10 AE 20 A7 i OO06E MOVAB P.AAE, SD OUTPUT+4 + 1060 ; 
04 AE 010E0009 8F D0 0007 MOVL Fi 765k 7597 SD_READ + 1066 ; 
08 AE 8 A7 9€E 00078 MOVAB P.AAF ¥ AB+4 3; 1065 3 
010E0007 8F DD 00080 PUSHL #17694727 + 1071 ; 
04 AE 34 A? SE 00086 MOVAB P.AAG, SD_RECOVER+4 + 1070 ; 
000000006 00 9F 0008B PUSHAB EDTSSZ CINP_DESC + 1075 | : 
24 AE 9F 00091 PUSHAB SD_INP ; F 
66 02 FB 00094 CALLS #27 cLIscer _VALUE ; : 
10 AE 9F 00097 PUSHAB > 1081 : 
65 01 FB 0009A CALLS EL TSPRESEN u : ; 
53 50 DO 0009D MOVL 50° OUTPU TUS : ; 
000000006 &F 53 D1 O00A0 CMPL ‘OUTPUT TSTATUS. #CLIS_PRESENT + 1087 : 
11 12 000A7 BNEG : : 
64 08 8A 000A9 BICB2 #8, EDT$$V_COPTIONS + 1090 ; 
000000006 00 9F OOOAC PUSHAB EDT$$Z_COUT_DESC : 1091 : 
14 AE 9F 00082 PUSHAB SD_OUTPUT : ’ 
66 02 FB 90085 CALLS #27 CLISGET_VALUE : : 
Op 11 00088 BRB : 1087 : 
58 53 D1 O00BA 1$: CMPL § QUTPUT_STATUS, R8 + 1097 ; 
05 12 00BD BNE : : 
64 08 88 000BF BISB2 #8, EDTS$V_COPTIONS : ; 
03 11 000C2 BRB $ ; ; 
64 08 gh O0¢4 38: BICB2 #8, EDT$$V_COPTIONS : 3 
30 AE F C7 38: PUSHAB D_COMMAND : 1102. Py 
65 gi FB OOOCA CALLS #17 Se SPRESENT ; : 
58 0 D1 000CD CMPL  COMMAND_STATUS, R8 > 1104 | : 
05 12 0000 BNEQ 4$ : 3 
64 10 88 000D BISB2 #16, EDT$$V_COPTIONS + 1107 : 
14 11 000D BRB 5$ > 1104 : 
64 10 8A 00007 4s: BICB2 #16 EDISSV_ COBT IONS > 1112 | : 
000000006 00 9F OOODA PUSHAB EDT$$Z DESC 1114 | : 
34 AE OF QED PUSHAB § rtOnA : : 
66 02 FB O00E CALLS #27 C ry : | : 
64 01 01 FO 000E6 INSV RO, A “Eo SSy _COPTIONS : : 
18 AE 9F OO0EB SS: PUSHAB SD. JOU > 1130) ; 
65 01 FB OOOEE CALLS #17 CLISPRESENT ; ; 

| 


M15 
EDTSCOMMAND EDTSCOMMAND = command Line interpreter 16-Sep-1984 00:14:49 VAX-11 Bliss-32 V 9 EDT 
v04-000 EDTSSPA_CMDLN = parse command Utne 102808-1 384 93: 2:22:52 DISKSVMSMASTER: ceo OSRCICOMMAND. B32; 39 ° (3), v04 
52 5 DO O00F1 MOVL RO, JOURNAL_STATUS F 
D1 0004 CMPL § JOURNAL_STATUS, RB + 1132 
6 fF O0F7 BNE : 
64 4 88 000F9 BISB2 #4, EDTS$V_COPTIONS + 1135 
F 11 OOOFC BRB : 1132 | 
64 4 BA OOOFE 6$ BICB2 EDTSSV COPTIONS + 1144 
000000006 00 9F o101 PUSHAB eotseo 0_DESC + 1146 
1¢ aS 9F 00107 PUSHAB a4 RNAL : 
rx. 02 FB OO10A CALLS #2; CLISGET_ VALUE F 
28 AE 9F 00100 7$ PUSHAB + 1162 
65 o1 F 0110 CALLS #17 Cr TSPRESENT : 
5] 20 D2 0011 MCOML CREAT STATUS R1 + 1163 
64 01 05 1 FO 00116 INSV EOTSSV. COPTIONS ; 
SE DD 00118 PUSHL sp" + 1167 
65 01 FB 0011D CALLS CLISPRESENT : 
64 01 00 50 F 90120 INSV Recoven USTATUS, #0, #1, EDT$$V_COPTIONS + 1168 
08 AE 9F 00125 PUSHAB D~ + 1175 
65 gi FB 00128 CALLS #17 CLISPRESENT : 
59 0 D1 00128 CMPL §_ READ_ONLY_STATUS, R9 + 1177 
1E 13 OO12E BEQL si : 
59 52 D1 001 9 CMPL § JOURNAL_STATUS, R9 + 1184 
03 13 001 BEQL : 
SA 2 D1 00135 CMPL § JOURNAL_STATUS, R10 : 
05 12 00138 BNEQ 9$ : 
64 01 02 50 FO 0013A 8$: INSV _ READ_ONLY_STATUS, #2, #1, EDTS$$V_COPTIONS : 1186 
59 53 D1 0013F 9$: CMPL OUTPOT_STATUS, R9 : 1192 
05 13 00142 BEQL F 
SA 53 D1 00144 CMPL  OUTPUT_STATUS, R10 : 
05 12 00147 BNEO : 
64 01 03 50 FO 00149 10$: INSV —- READ_ONLY_STATUS, #3, #1, EDTS$V_COPTIONS :; 
04 OO14E 11$: RET > 1201 


; Routine Size: 335 bytes, Routine Base: _EDTSCODE + 0038 


: 347 1202 


1 
; 348 1205 1 !<BLF/PAGE> 


N 15 
arene EDTSCOMMAND = command Line interpreter 19~300- 138% 9 16:49 VAX-11 Bliss-32 V4.0 ge 
Vv EDTSSPA_CMDLN = parse command Line 14-Sep-1984 12:22:52 DISKSVMSMASTER:CEDT. she COMMAND .B32; "3 
: 350 1206 1 END ! of module EDTSCOMMAND 
3 Jol 1205 1 
3 3 1206 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: _EDTSCODE 394 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
: soecece Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
; _$255$DUA28:CEDT.SRCJEDT.L32;1 377 0 0 40 00:00.2 
3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
3; _$255$DUA28: bever secs ramet seg) 9776 6 0 581 00:04.1 
; 7$255$DUA28:CSYSLIBICLIMAC.L32; 1 14 0 6 9 00:00.1 
: COMMAND QUALIFIERS 
: BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACEBACK/L I S=L ISS: COMMAND/0BJ=0BJ$ : COMMAND MSRC$: COMMAND .B32/UPDATE=(ENH$ : COMMAND 
Size: 335 code + 59 data bytes 
Run Time: 00:31.1 


Elapsed Time: 00:42.9 
Lines/CPU Min: 32 
Lexemes/CPU-Min: 10198 

f Used: 164 pages 
Compilation Complete 
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DIGITAL EQUIPMENT CORPORATION: 
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